home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / examples / xm / radio-stuff < prev    next >
Encoding:
Text File  |  1991-08-05  |  609 b   |  18 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; Auxiliary definitions for button boxes
  4.  
  5. (define (create-radio-box type parent . args)
  6.   (let ((box (create-managed-widget (find-class 'row-column) parent)))
  7.     (set-values! box 'packing "pack_column" 'orientation "horizontal"
  8.          'is-homogeneous #t 'entry-class (find-class type)
  9.          'radio-behavior #t 'radio-always-one #t)
  10.     (if args (apply set-values! box args))
  11.     box))
  12.  
  13. (define (radio-box-add-button! box . args)
  14.   (let* ((type (car (get-values box 'entry-class)))
  15.          (button (create-managed-widget type box)))
  16.     (if args (apply set-values! button args))
  17.     button))
  18.